VERSION 5.00
Object = "{19BD1EA6-6E36-45BA-AEBD-BCF3093017CC}#11.0#0"; "GorditoButton.ocx"
Begin VB.Form frmReservaMesa 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   3675
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   7695
   BeginProperty Font 
      Name            =   "Book Antiqua"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmReservas.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3675
   ScaleWidth      =   7695
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame fraContenedor 
      BackColor       =   &H00FFC0C0&
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3255
      Left            =   -30
      TabIndex        =   0
      Top             =   420
      Width           =   7695
      Begin VB.ComboBox cboMesaOrigen 
         BeginProperty Font 
            Name            =   "Book Antiqua"
            Size            =   36
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   990
         Left            =   3090
         Style           =   2  'Dropdown List
         TabIndex        =   4
         Top             =   1230
         Width           =   2025
      End
      Begin VB.Frame frParametros 
         BackColor       =   &H80000014&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   -30
         TabIndex        =   1
         Top             =   0
         Width           =   15255
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "Seleccionar Mesas"
            BeginProperty Font 
               Name            =   "Book Antiqua"
               Size            =   20.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   480
            Left            =   120
            TabIndex        =   2
            Top             =   120
            Width           =   3450
         End
      End
      Begin GorditoButton.Boton cmdLiberar 
         Height          =   1065
         Left            =   5850
         TabIndex        =   5
         Top             =   750
         Width           =   1155
         _ExtentX        =   2037
         _ExtentY        =   1879
         Caption         =   "OK"
         BackColor       =   12648384
         ResalteColor    =   12648384
         IntensityColor  =   4
         ButtonStyle     =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   16777215
      End
      Begin GorditoButton.Boton cmdSalir 
         Height          =   1065
         Left            =   5850
         TabIndex        =   6
         Top             =   1920
         Width           =   1155
         _ExtentX        =   2037
         _ExtentY        =   1879
         Caption         =   "Exit"
         BackColor       =   12648384
         ResalteColor    =   12648384
         IntensityColor  =   4
         ButtonStyle     =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   16777215
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Mesa Origen :"
         BeginProperty Font 
            Name            =   "Book Antiqua"
            Size            =   20.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00808080&
         Height          =   480
         Left            =   330
         TabIndex        =   7
         Top             =   1380
         Width           =   2535
      End
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Reasignar Mesa"
      BeginProperty Font 
         Name            =   "Book Antiqua"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   480
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   2865
   End
End
Attribute VB_Name = "frmReservaMesa"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mvarlistaMesasLibres As Collection
Private control As New cmesa

Private Sub cmdLiberar_Click()
Dim bMesaOrigen As bMesa
If Me.cboMesaOrigen.ListIndex >= 0 Then Set bMesaOrigen = mvarlistaMesasLibres.Item(cboMesaOrigen.ListIndex + 1)
If bMesaOrigen Is Nothing Then
    utilMensaje.muestraMensaje SeleccioneMesaOrigen
    Exit Sub
End If
control.ReservarMesa bMesaOrigen
Unload Me
End Sub

Private Sub cmdSalir_Click()
Unload Me
End Sub

Private Sub Form_Load()
    Call p_CentrarForm(Me, frmTablero)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set mvarlistaMesasLibres = Nothing
End Sub

Public Property Get listaMesasLibres() As Collection
    Set listaMesasLibres = mvarlistaMesasLibres
End Property

Public Property Set listaMesasLibres(listaMesasLibres As Collection)
    Set mvarlistaMesasLibres = listaMesasLibres
    llenarListaLibres
End Property

Private Sub llenarListaLibres()
Dim i As Integer
Dim bMesa As bMesa
For i = 1 To mvarlistaMesasLibres.Count
    Set bMesa = mvarlistaMesasLibres.Item(i)
    Me.cboMesaOrigen.AddItem UCase(bMesa.sDescripcion)
Next
End Sub


